home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / Applications / directtex Pro 2.0 / DirectTeX.1 / Installer-Files / Config-Files / PostScript / PostScript folder / texps.pro < prev   
Encoding:
Text File  |  1995-03-27  |  633 b   |  12 lines  |  [TEXT/TeX+]
  1. %!
  2. TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2
  3. index /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
  4. exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
  5. exch def dict begin Encoding{exch dup type /integertype ne{pop pop 1 sub
  6. dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
  7. ifelse}forall Metrics /Metrics currentdict end def[2 index currentdict
  8. end definefont 3 -1 roll makefont /setfont load]cvx def}def
  9. /ObliqueSlant{dup sin S cos div neg}B /SlantFont{4 index mul add}def
  10. /ExtendFont{3 -1 roll mul exch}def /ReEncodeFont{/Encoding exch def}def
  11. end
  12.